home *** CD-ROM | disk | FTP | other *** search
/ PCGUIA 117 / PC Guia 117.iso / Software / Utils / Software2 / Product11 / Setup.exe / MT-3.16-full-en_US / mt-atom.cgi < prev    next >
Text File  |  2005-03-08  |  735b  |  32 lines
  1. #!/usr/bin/perl -w
  2.  
  3. # Copyright 2001-2005 Six Apart. This code cannot be redistributed without
  4. # permission from www.movabletype.org.
  5. #
  6. # $Id: mt-atom.cgi 10197 2005-03-09 00:27:57Z ezra $
  7. use strict;
  8.  
  9. my($MT_DIR);
  10. BEGIN {
  11.     if ($0 =~ m!(.*[/\\])!) {
  12.         $MT_DIR = $1;
  13.     } else {
  14.         $MT_DIR = './';
  15.     }
  16.     unshift @INC, $MT_DIR . 'lib';
  17.     unshift @INC, $MT_DIR . 'extlib';
  18. }
  19.  
  20. eval {
  21.     require MT::AtomServer;
  22.      my $CONFIG = $ENV{CONFIG} || $MT_DIR . 'mt.cfg';
  23.      my $app = MT::AtomServer->new( Config => $CONFIG )
  24.          or die MT::AtomServer->errstr;
  25.     local $SIG{__WARN__} = sub { $app->trace($_[0]) };
  26.     $app->run;
  27. };
  28. if ($@) {
  29.     print "Content-Type: text/html\n\n";
  30.     print "Got an error: $@";
  31. }
  32.